<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.sea</name>
<id>-1</id>
<cardCount>18</cardCount>
<cardID>2844</cardID>
<listID>2253</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackaddMyMenuend openStackon closeStackdeleteMyMenuend closeStackon openCardshow fld infoget whichListLine(fld id 4,return,the short name of this cd)select line it of fld id 4end openCardon addMyMenushow menuBarcreate menu "XFCN's"put myMenuItems() into menu "XFCN's" with menuMessages myMenuMessages()end addMyMenuon deleteMyMenuif there is a menu "XFCN's" then delete menu "XFCN's"end deleteMyMenufunction myMenuItemsreturn "Version History,Export Docs…,Resource Mover…"end myMenuItemsfunction myMenuMessagesreturn "showVersionHistory,exportDocs,resMover"end myMenuMessageson showVersionHistoryhide fld infoget whichListLine(fld id 4,return,the short name of this cd)select line it of fld id 4end showVersionHistoryon exportDocsask file "Export docs to file:" with "List XFCN's docs"if it is empty then exit exportDocsput it into fileNameopen file fileNamerepeat with i = 1 to number of lines in fld contentsset cursor to busyget line i of fld contentsif it is empty then next repeatwrite it & return to file fileNameput "Writing:" && itwrite (fld info of cd it) & return & return to file fileNameend repeatclose file fileNameput "Export complete"end exportDocson resMoverput the long name of this stack into fileNamedelete word 1 of fileNamedelete first char of fileNamedelete last char of fileNamego card "Resource Mover" of stack "Power Tools"if the short name of this cd ≠ "Resource Mover"then answer "Sorry, Apple's Resource Mover can't be found."else doResList1 fileName,falseend resMover</script>
